home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / pdsoft / demo_library / 4329.lha / B / B.amosSourceCode next >
AMOS Source Code  |  1980-01-11  |  27KB  |  1,072 lines
  1. Close Editor 
  2. Hide On 
  3. MEG1=0
  4. If Chip Free+Fast Free>240000 Then MEG1=1
  5. Dim LSC(100),FARBE(15),PAWO$(12)
  6. Restore PW
  7. For I=2 To 12 Step 2 : Read PAWO$(I) : Next I
  8. PW:
  9. Data "VGA","RGB","YAC","FUK","MRX","GOD"
  10. MILIC1=0
  11. Dim HISCORE(4)
  12. Dim HINAME$(4)
  13. Open In 1,"hs"
  14. For I=0 To 4
  15. Input #1,HISCORE(I)
  16. Line Input #1,HINAME$(I)
  17. Next I
  18. Close 1
  19. If MEG1=1
  20. Load "sm",5
  21. Load "pp",6
  22. Load "tm",7
  23. End If 
  24. Load "ic1",2
  25. Make Mask 
  26. TITLE:
  27. If MEG1=0
  28. Load "pp",6
  29. Load "tm",7
  30. End If 
  31. Sam Bank 7
  32. Led Off 
  33. Sam Loop On 
  34. Sam Raw 3,Start(7)+32,Length(7)-32,7520
  35. TITLE2:
  36. Amal Off 
  37. Sprite Off 
  38. Bob Off 
  39. Auto View Off 
  40. Screen Open 0,320,200,16,Lowres
  41. Flash Off : Curs Off 
  42. Unpack 6 To 0
  43. Double Buffer 
  44. Flash Off : Curs Off 
  45. Colour 1,0
  46. Paper 0
  47. Pen 9
  48. Locate ,21
  49. Centre "(C) 1992 by BETSOFT COMPUTINGS"
  50. Locate ,22
  51. Centre "        PARADISE 92        "
  52. Locate ,24
  53. Centre "PRESS FIRE-BUTTON OR ENTER PASSWORD!"
  54. Shift Up 6,8,14,1
  55. Set Rainbow 0,0,640,"","",""
  56. SCANLINE=0
  57. RFARBE=15
  58. For Z=0 To 15
  59. For Y=1 To 12
  60. Rain(0,SCANLINE)=RFARBE
  61. Inc SCANLINE
  62. Next Y
  63. Dec RFARBE
  64. Next Z
  65. Rainbow 0,0,50,210
  66. View : Auto View On 
  67. For I=0 To 6
  68. Bob I,320,-10,I+64
  69. Channel I To Bob I
  70. Amal I,"L: L X=320 ; L Y=-10 ; PL 1 ; J L"
  71. Amal On I
  72. Wait 15
  73. Next I
  74. ZAL=0 : LEVEL=0
  75. PW$=""
  76. WFFB:
  77. A$=Inkey$
  78. If A$<>""
  79. PW$=PW$+Upper$(A$)
  80. If Len(PW$)>2
  81. For I=2 To 12 Step 2
  82. If PW$=PAWO$(I)
  83. LEVEL=I
  84. End If 
  85. Next I
  86. PW$=""
  87. End If 
  88. End If 
  89. If LEVEL<>0
  90. Dec LEVEL : Goto NEWINI
  91. End If 
  92. Inc ZAL : If ZAL>15000 Then Goto DHISC
  93. If Fire(1)=-1 Then Goto NEWINI
  94. Goto WFFB
  95. TITSEQ:
  96. Amal Off 
  97. Bob Off 
  98. Shift Off 
  99. Flash Off 
  100. Get Icon Palette 
  101. Wait Vbl 
  102. For I=0 To 15
  103. FARBE(I)=Colour(I)
  104. Next I
  105. Get Sprite Palette 
  106. Wait Vbl 
  107. For I=0 To 15
  108. Colour I,FARBE(I)
  109. Next I
  110. Cls 0
  111. Paper 0
  112. Pen 1
  113. Locate 0,2
  114. Print "This is MR. BRICK,"
  115. Print "the hero of this game ..........."
  116. Sprite 8,X Hard(282),Y Hard(7),8
  117. Channel 3 To Sprite 8
  118. Amal 3,"A 0,(9,6)(10,6)(11,6)(12,6)(13,6)(14,6)"
  119. Amal On 3
  120. Wait 200
  121. Auto View Off 
  122. Locate 0,6
  123. Print "Avoid colliding with following objects:"
  124. Paste Icon 0,70,5
  125. Paste Icon 90,70,8
  126. Paste Icon 180,70,10
  127. Paste Icon 270,70,18
  128. Locate 0,14
  129. Print "Water     Spikes       Fire       Fire"
  130. View 
  131. Wait 200
  132. Locate 0,18
  133. Print "Collect coins ................."
  134. Bob 0,260,141,60
  135. Bob 1,275,141,60
  136. Bob 2,290,145,60
  137. For I=0 To 2
  138. Channel I To Bob I
  139. Next I
  140. Amal 0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,10 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,10,10 ; J L"
  141. Amal 1,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-12,12 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,12,12 ; J L"
  142. Amal 2,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-8,8 ; M 0,-6,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,6,13 ; M 0,8,8 ; J L"
  143. Amal On 0
  144. Amal On 1
  145. Amal On 2
  146. View 
  147. Wait 200
  148. Locate ,20
  149. Centre "and reach EXIT to enter new level"
  150. Paste Icon 140,155,16
  151. View 
  152. Wait 200
  153. Locate ,24
  154. Centre "PRESS FIRE TO START THE GAME"
  155. View : Auto View On 
  156. ZAL=0
  157. WFFB3:
  158. Inc ZAL
  159. If ZAL>15000 Then Goto TITLE2
  160. If Fire(1)=-1 Then Goto NEWINI
  161. Goto WFFB3
  162. DHISC:
  163. Amal Off 
  164. Sprite Off 
  165. Bob Off 
  166. Flash Off 
  167. Shift Off 
  168. Auto View Off 
  169. Cls 0
  170. Flash 2,"(199,4)(288,4)(377,4)(486,4)(595,5)(684,6)(773,7)(882,9)(793,7)(684,6)(575,5)(486,5)(397,5)(288,5)"
  171. Paper 0
  172. Pen 2
  173. Locate ,1
  174. Under On 
  175. Centre "HALL OF FAME"
  176. Under Off 
  177. Locate ,5
  178. For I=0 To 4
  179. Locate 5,
  180. Print HINAME$(I);
  181. Locate 30,
  182. Print Str$(HISCORE(I))
  183. Print 
  184. Next I
  185. Print 
  186. Print 
  187. Centre "Press <S> to save High-Scores!"
  188. Print 
  189. Print 
  190. Centre "Press Fire-Button to start the game!"
  191. View : Auto View On 
  192. ZAL=0 : SVED=0 : LEVEL=0
  193. LHST: If Fire(1)=-1 Then Goto NEWINI
  194. A$=Inkey$
  195. If Upper$(A$)="S" and SVED=0
  196. SVED=1
  197. Open Out 1,"hs"
  198. For I=0 To 4
  199. Print #1,HISCORE(I)
  200. Print #1,HINAME$(I)
  201. Next I
  202. Close 1
  203. End If 
  204. Inc ZAL
  205. If ZAL>15000
  206. If NAENT$=""
  207. Goto TITSEQ
  208. Else 
  209. NAENT$=""
  210. Goto TITLE
  211. End If 
  212. End If 
  213. Goto LHST
  214. NEWINI:
  215. Sam Loop Off 
  216. Music Off 
  217. Led On 
  218. If MEG1=0
  219. Erase 6
  220. Erase 7
  221. Load "sm2",5
  222. End If 
  223. Sam Bank 5
  224. Amal Off 
  225. Sprite Off 
  226. Bob Off 
  227. Auto View Off 
  228. Rainbow Del 0
  229. INILEVEL
  230. TIME=20 : SHIF=1 : SCORE=0 : LIVES=3
  231. NEWINI2:
  232. E1X=0 : E1Y=0 : E2X=0 : E2Y=0 : E3X=0 : E3Y=0 : E1A$="" : E2A$="" : E3A$=""
  233. Auto View Off 
  234. CHGLEVEL
  235. INI:
  236. X=8 : Y=192 : T=1 : CHANGED=0 : POS=71 : SCOCHG=0 : COCO=0
  237. XO=0 : YO=192 : POSO=71 : TAL=0
  238. For I=1 To 33 : Hot Spot I,$10 : Next I
  239. Screen To Front 1
  240. View : Auto View On 
  241. Sprite 8,X Hard(X),Y Hard(Y),1
  242. If E1A$<>"" Then Sprite 9,X Hard(E1X),Y Hard(E1Y+4),52 : Channel 9 To Sprite 9 : Amal 9,E1A$ : Amal On 9
  243. If E2A$<>"" Then Sprite 10,X Hard(E2X),Y Hard(E2Y+4),52 : Channel 10 To Sprite 10 : Amal 10,E2A$ : Amal On 10
  244. If E3A$<>"" Then Sprite 11,X Hard(E3X),Y Hard(E3Y+4),52 : Channel 11 To Sprite 11 : Amal 11,E3A$ : Amal On 11
  245. MAINLOOP:
  246. If Fire(1)=-1 and Jright(1)=-1 and LSC(POS+10)<>14 and LSC(POS)<>9 and LSC(POS+10)<>15
  247. If LSC(POS+1)=4 or LSC(POS+1)=7 or LSC(POS+1)=15 or LSC(POS+1)=19
  248. XM=X mod 32
  249. For I=1 To 11 : Add Y,-1 : Sprite 8,X Hard(X),Y Hard(Y),19 : For I1=1 To 180 : Next I1 : Next I
  250. For I=XM To 31 : Add X,1 : Sprite 8,X Hard(X),Y Hard(Y),19 : For I1=1 To 200 : Next I1 : Next I
  251. Sprite 8,X Hard(X),Y Hard(Y),2
  252. Sam Play 1,1
  253. Goto GAMEOVER
  254. End If 
  255. If X mod 32>27
  256. Add POS,2
  257. Else 
  258. Inc POS
  259. End If 
  260. Sam Play 1,3
  261. For I=1 To 11 : Add X,1 : Add Y,-1 : Sprite 8,X Hard(X),Y Hard(Y),19 : For I1=1 To 180 : Next I1 : Next I
  262. For I=1 To 14 : Add X,1 : Sprite 8,X Hard(X),Y Hard(Y),19 : For I1=1 To 200 : Next I1 : Next I
  263. For I=1 To 11 : Add X,1 : Add Y,1 : Sprite 8,X Hard(X),Y Hard(Y),19 : For I1=1 To 140 : Next I1 : Next I
  264. Goto DCH
  265. End If 
  266. If Fire(1)=-1 and Jleft(1)=-1 and LSC(POS+10)<>14 and LSC(POS)<>9 and LSC(POS+10)<>15
  267. If LSC(POS-1)=4 or LSC(POS-1)=7 or LSC(POS-1)=15 or LSC(POS-1)=19
  268. XM=X mod 32
  269. For I=1 To 11 : Add Y,-1 : Sprite 8,X Hard(X),Y Hard(Y),20 : For I1=1 To 180 : Next I1 : Next I
  270. For I=XM To 0 Step -1 : Add X,-1 : Sprite 8,X Hard(X),Y Hard(Y),20 : For I1=1 To 200 : Next I1 : Next I
  271. Sprite 8,X Hard(X),Y Hard(Y),9
  272. Sam Play 1,1
  273. Goto GAMEOVER
  274. End If 
  275. If X mod 32<4
  276. Add POS,-2
  277. Else 
  278. Dec POS
  279. End If 
  280. Sam Play 1,3
  281. For I=1 To 11 : Add X,-1 : Add Y,-1 : Sprite 8,X Hard(X),Y Hard(Y),20 : For I1=1 To 180 : Next I1 : Next I
  282. For I=1 To 14 : Add X,-1 : Sprite 8,X Hard(X),Y Hard(Y),20 : For I1=1 To 200 : Next I1 : Next I
  283. For I=1 To 11 : Add X,-1 : Add Y,1 : Sprite 8,X Hard(X),Y Hard(Y),20 : For I1=1 To 140 : Next I1 : Next I
  284. Goto DCH
  285. End If 
  286. If Jup(1)=-1
  287. If LSC(POS)=9 or LSC(POS)=11
  288. If LSC(POS-10)=9 or LSC(POS-10)=11
  289. Add Y,-1 : Add T,1,15 To 18 : CHANGED=1
  290. If Y mod 32=0
  291. Add POS,-10
  292. Goto DCH
  293. End If 
  294. End If 
  295. End If 
  296. End If 
  297. If Jdown(1)=-1
  298. If(LSC(POS+10)=11 or LSC(POS+10)=9) or(LSC(POS)=11 and Y mod 32<>0)
  299. Add Y,1 : Add T,1,15 To 18 : CHANGED=1
  300. If Y mod 32=1
  301. Add POS,10
  302. Goto DCH
  303. End If 
  304. End If 
  305. End If 
  306. If Jright(1)=-1 and X<304 and LSC(POS)<>9
  307. XO=X : YO=Y : POSO=POS
  308. Add X,1 : Add T,1,1 To 7 : CHANGED=1
  309. If X mod 32=0
  310. Inc POS
  311. If LSC(POS)=4 or LSC(POS)=7 or LSC(POS)=12 or LSC(POS)=15 or LSC(POS)=19
  312. Add X,-1 : Dec POS : CHANGED=0
  313. End If 
  314. End If 
  315. End If 
  316. If Jleft(1)=-1 and X>0 and LSC(POS)<>9
  317. XO=X : YO=Y : POSO=POS
  318. Add X,-1 : Add T,1,9 To 14 : CHANGED=1
  319. If X mod 32=31
  320. Dec POS
  321. If LSC(POS)=4 or LSC(POS)=7 or LSC(POS)=12 or LSC(POS)=15 or LSC(POS)=19
  322. Add X,1 : Inc POS : CHANGED=0
  323. End If 
  324. End If 
  325. End If 
  326. DCH:
  327. If CHANGED=1 Then CHANGED=0 : Sprite 8,X Hard(X),Y Hard(Y),T
  328. If LSC(POS)<>11 and LSC(POS)<>9 and Y mod 32<>0
  329. If MEG1=1
  330. Sam Play 2,11
  331. Else 
  332. Sam Play 2,6
  333. End If 
  334. YM=Y mod 32
  335. For I=YM To 31 : Add Y,1 : Sprite 8,X Hard(X),Y Hard(Y),T : For I1=1 To 80 : Next I1 : Next I
  336. End If 
  337. If LSC(POS)=13
  338. For I=1 To 64
  339. Dec Y
  340. Sprite 8,X Hard(X),Y Hard(Y),T
  341. For I1=1 To 20 : Next I1
  342. Next I
  343. If MEG1=1
  344. Sam Play 1,5
  345. End If 
  346. Add POS,-20
  347. End If 
  348. If LSC(POS)=6
  349. For I=1 To 64
  350. Inc X
  351. Sprite 8,X Hard(X),Y Hard(Y),T
  352. For I1=1 To 20 : Next I1
  353. Next I
  354. If MEG1=1
  355. Sam Play 1,5
  356. End If 
  357. Add POS,2
  358. End If 
  359. If LSC(POS)=20
  360. For I=1 To 64
  361. Dec X
  362. Sprite 8,X Hard(X),Y Hard(Y),T
  363. For I1=1 To 20 : Next I1
  364. Next I
  365. If MEG1=1
  366. Sam Play 1,5
  367. End If 
  368. Add POS,-2
  369. End If 
  370. If LSC(POS)=16 and COCO>5
  371. TR=220-Amreg(0,0)
  372. Amal Off 
  373. Screen 1
  374. Print 
  375. Centre "SCORE:"+Str$(SCORE)
  376. Wait 100
  377. Print 
  378. If MEG1=1
  379. Sam Play 3,10
  380. Else 
  381. Bell 
  382. End If 
  383. Print 
  384. For I=1 To TR
  385. Add SCORE,10
  386. Centre "SCORE:"+Str$(SCORE)
  387. For I1=1 To 70 : Next I1
  388. Next I
  389. Screen 0
  390. Wait 100
  391. Goto NEWINI2
  392. End If 
  393. If LSC(POS)=18
  394. If MEG1=1
  395. Sam Play 1,7
  396. Else 
  397. Sam Play 1,5
  398. End If 
  399. Goto GAMEOVER
  400. End If 
  401. If LSC(POS)<>1 and LSC(POS)<>9 and LSC(POS)<>11 and LSC(POS)<>6 and LSC(POS)<>13 and LSC(POS)<>20
  402. If MEG1=1
  403. Sam Play 1,9
  404. Else 
  405. Sam Play 1,5
  406. End If 
  407. Goto GAMEOVER
  408. End If 
  409. If LSC(POS+10)=10 or LSC(POS+10)=19
  410. If MEG1=1
  411. Sam Play 1,7
  412. Else 
  413. Sam Play 1,5
  414. End If 
  415. Goto GAMEOVER
  416. End If 
  417. WATD:
  418. If LSC(POS+10)=5 or LSC(POS+10)=17
  419. YM=Y mod 32
  420. If YM>0
  421. If MEG1=1
  422. Sam Play 1,11
  423. Else 
  424. Sam Play 1,6
  425. End If 
  426. For I=YM To 31 : Add Y,1 : Sprite 8,X Hard(X),Y Hard(Y),T : For I1=1 To 80 : Next I1 : Next I
  427. End If 
  428. If T<8
  429. T=22
  430. Else 
  431. T=28
  432. End If 
  433. If MEG1=1
  434. Sam Play 2,6
  435. End If 
  436. For I=T To T+5
  437. Sprite 8,X Hard(X),Y Hard(Y),I : Wait 2
  438. Next I
  439. Goto GAMEOVER
  440. End If 
  441. If LSC(POS+10)=1
  442. Sam Play 3,2
  443. YM2=Y mod 32
  444. DIA:
  445. While(LSC(POS+10)=1 or LSC(POS+10)=13)
  446. YM=Y mod 32
  447. For I=YM To 31 : Add Y,1 : Sprite 8,X Hard(X),Y Hard(Y),T : For I1=1 To 50 : Next I1 : Next I
  448. Add POS,10
  449. Wend 
  450. If YM2>0
  451. Add POS,-10
  452. YM2=0
  453. Goto DIA
  454. End If 
  455. Sam Play 1,1
  456. Wait 5
  457. If LSC(POS+10)=5 or LSC(POS+10)=17
  458. Goto WATD
  459. End If 
  460. Goto GAMEOVER
  461. End If 
  462. MAINEND:
  463. If Spritebob Col(8,1 To 6)=-1
  464. For I=1 To 6
  465. If Col(I)=-1
  466. Sam Play 2,4
  467. Amal Off I
  468. Bob Off I
  469. Add SCORE,100
  470. SCOCHG=1
  471. Inc COCO
  472. End If 
  473. Next I
  474. End If 
  475. If Sprite Col(8,9 To 11)=-1
  476. For I=9 To 11
  477. If Col(I)=-1
  478. If MEG1=1
  479. Sam Play 1,8
  480. Else 
  481. Sam Play 1,5
  482. End If 
  483. Wait 100
  484. Amal Off I
  485. Sprite Off I
  486. Goto GAMEOVER
  487. End If 
  488. Next I
  489. End If 
  490. If SCOCHG=1
  491. SCOCHG=0
  492. Screen 1
  493. Centre "LEVEL:"+Str$(LEVEL)+"   LIVES:"+Str$(LIVES)+"   SCORE:"+Str$(SCORE)
  494. Screen 0
  495. End If 
  496. If Amreg(0,0)=220
  497. If MEG1=1
  498. Sam Play 3,8
  499. End If 
  500. Screen 1 : Print : Centre "TIME OUT!" : Screen 0 : LIVES=0 : Goto GAMEOVER
  501. End If 
  502. Wait 1
  503. A$=Inkey$ : If A$<>"e" Then Goto MAINLOOP
  504. Amal Off 
  505. Sprite Off 
  506. Bob Off 
  507. Flash Off 
  508. Shift Off 
  509. Rainbow Del 0
  510. Rainbow Del 1
  511. Screen Close 1
  512. If MEG1=0 Then Erase 5
  513. Goto TITLE
  514. GAMEOVER:
  515. Dec LIVES
  516. If LIVES>0
  517. Screen 1
  518. Print 
  519. Centre "GET READY"
  520. Wait 150
  521. Screen 0
  522. X=XO : Y=YO : POS=POSO : SCOCHG=1
  523. Sprite 8,X Hard(X),Y Hard(Y),T
  524. Goto MAINLOOP
  525. End If 
  526. Wait 100
  527. Amal Off 
  528. Sprite Off 
  529. Bob Off 
  530. Boom 
  531. Bob 7,13,60,71
  532. Channel 7 To Bob 7
  533. Amal 7,"L: M 150,0,250 ; M -150,0,250 ; J L"
  534. Amal On 7
  535. Screen 1
  536. Print 
  537. Centre "LEVEL:"+Str$(LEVEL)+"   LIVES:"+Str$(LIVES)+"   SCORE:"+Str$(SCORE)
  538. Screen 0
  539. WFFB2:
  540. If Fire(1)<>-1 Then Goto WFFB2
  541. Amal Off 
  542. Sprite Off 
  543. Bob Off 
  544. Shift Off 
  545. Flash Off 
  546. If MEG1=0 Then Erase 5
  547. PW$=""
  548. If LEVEL=2 Then PW$="VGA"
  549. If LEVEL=4 Then PW$="RGB"
  550. If LEVEL=6 Then PW$="YAC"
  551. If LEVEL=8 Then PW$="FUK"
  552. If LEVEL=10 Then PW$="MRX"
  553. If LEVEL=12 Then PW$="GOD"
  554. If PW$<>""
  555. Screen 1
  556. Flash 1,"(0f0,3)(0e0,3)(0d0,3)(0c0,3)(0b0,3)(0a0,3)(080,3)(070,3)(050,3)(070,3)(080,3)(0a0,3)(0b0,3)(0c0,3)(0d0,3)(0e0,3)"
  557. Print 
  558. Centre "PASSWORD = "+PW$
  559. Wait 200
  560. Flash Off 
  561. End If 
  562. Screen Close 1
  563. Rainbow Del 0
  564. Rainbow Del 1
  565. Cls 0
  566. Paper 0
  567. Pen 1
  568. NAENT$=""
  569. ENTRY=-1
  570. For I=0 To 4
  571. If SCORE>HISCORE(I) and ENTRY=-1 Then ENTRY=I
  572. Next I
  573. If ENTRY=-1 Then Goto DGAOV
  574. If ENTRY<>4
  575. For I=3 To ENTRY Step -1
  576. HISCORE(I+1)=HISCORE(I)
  577. HINAME$(I+1)=HINAME$(I)
  578. Next I
  579. End If 
  580. Locate ,1
  581. Centre "CONGRATULATIONS!"
  582. Print 
  583. Centre "YOU ARE A TOP-FIVE-PLAYER!"
  584. Print 
  585. Print 
  586. Centre "PLEASE ENTER YOUR NAME (Max. 20 Ch.)"
  587. Print 
  588. Print 
  589. Clear Key 
  590. Line Input ":";NAENT$
  591. Flash Off 
  592. Curs Off 
  593. Cls 0
  594. HISCORE(ENTRY)=SCORE
  595. HINAME$(ENTRY)=Left$(NAENT$,20)
  596. Goto DHISC
  597. DGAOV:
  598. Goto TITLE
  599. Procedure INILEVEL
  600. Shared FARBE()
  601. Curs Off : Flash Off 
  602. Wait Vbl 
  603. Get Icon Palette 
  604. For I=0 To 15
  605. FARBE(I)= Colour(I)
  606. Next I
  607. Make Icon Mask 
  608. Screen Close 0
  609. Screen Open 1,320,15,2,Lowres
  610. Screen Display 1,130,290,,
  611. Curs Off 
  612. Colour 0,0
  613. Set Rainbow 1,0,32,"(1,-1,1)","","(1,-1,1)"
  614. Rainbow 1,0,288,16
  615. Cls 0
  616. Flash 1,"(0f0,5)(0e0,5)(0d0,5)(0c0,5)(0b0,5)(0a0,5)(080,5)(070,5)(050,5)(070,5)(080,5)(0a0,5)(0b0,5)(0c0,5)(0d0,5)(0e0,5)"
  617. Pen 1
  618. Print 
  619. Screen Open 0,320,240,16,Lowres
  620. Flash Off : Curs Off 
  621. Cls 0
  622. Double Buffer 
  623. Set Rainbow 0,0,640,"","",""
  624. SCANLINE=0
  625. RFARBE=255
  626. For Z=0 To 11
  627. For Y=1 To 9
  628. Rain(0,SCANLINE)=RFARBE
  629. Inc SCANLINE
  630. Next Y
  631. Add RFARBE,-16
  632. Next Z
  633. RFARBE=15
  634. For Z=0 To 15
  635. For Y=1 To 8
  636. Rain(0,SCANLINE)=RFARBE
  637. Inc SCANLINE
  638. Next Y
  639. Dec RFARBE
  640. Next Z
  641. Rainbow 0,0,50,210
  642. Cls 0
  643. End Proc
  644. Procedure INPLEVEL
  645. Shared LSC(),TIME,LEVELNAME$,LEVEL,SHIF
  646. FILE$=Str$(LEVEL)
  647. If LEVEL>9 Then FILE$=Right$(FILE$,2) Else FILE$=Right$(FILE$,1)
  648. FILNAME$="LSCAPE"+FILE$
  649. Restore FILNAME$
  650. For I=1 To 100
  651. Read LSC(I)
  652. Next I
  653. Read LEVELNAME$
  654. Read TIME
  655. Read SHIF
  656. If SHIF=1 Then Shift Up 6,4,6,1 Else Shift Up 5,10,12,1
  657. LSCAPE1:
  658. Data 1,1,1,1,1,1,1,1,1,1
  659. Data 16,1,12,1,1,12,1,1,11,1
  660. Data 2,2,2,2,2,2,2,2,9,2
  661. Data 1,11,1,1,12,1,1,1,11,1
  662. Data 2,9,1,2,3,3,5,2,9,2
  663. Data 1,11,1,1,1,4,1,1,11,1
  664. Data 3,3,3,5,3,3,3,2,9,2
  665. Data 1,1,1,12,1,1,12,1,11,1
  666. Data 3,3,3,3,3,3,3,3,3,3
  667. Data 3,3,3,3,3,3,3,3,3,3
  668. Data "EASY LIVING"
  669. Data 20
  670. Data 1
  671. LSCAPE2:
  672. Data 1,1,1,1,1,1,1,1,1,1
  673. Data 11,1,1,1,1,1,1,16,1,11
  674. Data 9,2,3,3,10,3,10,14,10,9
  675. Data 11,1,1,4,11,7,11,1,1,11
  676. Data 9,2,3,3,9,2,9,14,1,11
  677. Data 11,1,18,1,11,11,11,1,1,11
  678. Data 3,3,3,3,2,9,2,10,2,9
  679. Data 1,1,1,18,1,11,1,1,1,11
  680. Data 3,3,3,3,3,3,14,10,3,3
  681. Data 3,3,3,3,3,3,3,3,3,3
  682. Data "GETTING HOT"
  683. Data 25
  684. Data 2
  685. LSCAPE3:
  686. Data 1,1,1,1,1,1,1,1,1,1
  687. Data 11,1,1,1,12,1,1,1,1,11
  688. Data 9,5,3,14,14,14,3,3,3,9
  689. Data 11,1,1,1,1,1,11,7,16,11
  690. Data 3,3,5,3,5,3,9,3,3,9
  691. Data 11,1,1,1,1,1,11,1,1,11
  692. Data 9,5,3,5,3,5,3,5,14,2
  693. Data 11,1,1,1,1,1,1,1,1,1
  694. Data 3,3,17,3,17,3,17,3,17,3
  695. Data 3,3,3,3,3,3,3,3,3,3
  696. Data "TAKE A BATH!"
  697. Data 30
  698. Data 1
  699. LSCAPE4:
  700. Data 1,1,1,1,1,1,1,1,1,1
  701. Data 11,1,1,1,11,1,1,16,8,11
  702. Data 11,1,14,3,9,1,1,19,2,9
  703. Data 11,18,1,4,11,18,1,11,1,11
  704. Data 9,2,3,3,3,3,14,11,1,11
  705. Data 11,1,1,1,11,1,1,11,19,2
  706. Data 2,2,14,1,9,1,14,2,3,3
  707. Data 1,1,1,8,11,8,1,1,1,1
  708. Data 3,1,3,3,3,3,3,10,10,10
  709. Data 3,3,3,3,3,3,3,3,3,3
  710. Data "I.Q.-RACE"
  711. Data 20
  712. Data 2
  713. LSCAPE5:
  714. Data 1,1,1,1,1,1,1,1,1,1
  715. Data 1,1,1,1,1,1,1,1,1,11
  716. Data 3,2,2,2,1,2,1,2,1,11
  717. Data 11,1,8,13,1,1,1,1,16,11
  718. Data 9,2,3,3,17,17,17,17,17,3
  719. Data 11,1,1,3,17,17,17,17,17,3
  720. Data 11,1,1,3,5,5,5,5,5,3
  721. Data 11,1,13,1,13,1,13,1,13,1
  722. Data 3,3,3,3,3,3,3,3,3,3
  723. Data 3,3,3,3,3,3,3,3,3,3
  724. Data "TELEPORTER!"
  725. Data 10
  726. Data 1
  727. LSCAPE6:
  728. Data 1,1,1,1,1,1,1,1,1,1
  729. Data 16,1,18,1,18,1,18,1,11,1
  730. Data 2,2,2,2,2,2,2,2,9,2
  731. Data 1,11,1,8,1,8,1,18,11,1
  732. Data 2,9,2,2,2,2,2,2,2,2
  733. Data 1,11,1,1,1,1,1,1,11,1
  734. Data 14,2,14,2,14,2,14,2,9,2
  735. Data 1,1,1,1,1,1,1,1,11,1
  736. Data 3,3,3,10,3,3,10,3,3,3
  737. Data 3,3,3,3,3,3,3,3,3,3
  738. Data "RELAX"
  739. Data 10
  740. Data 2
  741. LSCAPE7:
  742. Data 1,1,1,1,1,1,1,1,1,1
  743. Data 16,1,1,1,1,1,1,18,1,1
  744. Data 10,14,14,14,14,14,14,14,2,14
  745. Data 13,1,13,1,13,1,1,1,13,1
  746. Data 2,2,2,2,2,2,2,2,2,2
  747. Data 1,1,13,1,13,1,13,1,13,11
  748. Data 2,2,2,2,2,2,2,2,2,9
  749. Data 1,1,1,1,1,1,1,1,1,11
  750. Data 3,3,3,3,3,3,3,3,3,3
  751. Data 3,3,3,3,3,3,3,3,3,3
  752. Data "THINK TWICE"
  753. Data 20
  754. Data 2
  755. LSCAPE8:
  756. Data 1,1,1,1,1,1,1,1,1,1
  757. Data 1,1,11,1,1,1,1,1,11,16
  758. Data 4,4,11,1,11,1,1,14,11,14
  759. Data 3,3,3,2,9,1,1,1,11,1
  760. Data 1,1,11,1,11,1,11,1,11,11
  761. Data 11,1,11,1,11,1,11,1,11,11
  762. Data 11,1,11,1,1,1,11,1,1,11
  763. Data 11,1,1,1,1,1,1,1,1,11
  764. Data 3,17,17,17,17,17,17,17,17,3
  765. Data 3,3,3,3,3,3,3,3,3,3
  766. Data "LADDERAMA"
  767. Data 20
  768. Data 1
  769. LSCAPE9:
  770. Data 1,1,1,1,1,1,1,1,1,1
  771. Data 11,1,1,11,1,1,1,1,1,1
  772. Data 11,14,19,11,1,1,1,1,1,11
  773. Data 11,1,1,15,1,4,1,4,1,11
  774. Data 11,1,1,1,1,1,16,1,1,11
  775. Data 11,1,4,1,4,1,15,1,15,11
  776. Data 11,1,11,1,11,1,11,1,11,11
  777. Data 11,19,11,19,11,19,11,19,11,11
  778. Data 3,3,3,3,3,3,3,3,3,10
  779. Data 3,3,3,3,3,3,3,3,3,3
  780. Data "DWARFS AGAIN"
  781. Data 18
  782. Data 2
  783. LSCAPE10:
  784. Data 1,1,1,1,1,1,1,1,1,1
  785. Data 11,16,12,1,1,11,1,1,1,11
  786. Data 9,2,2,14,2,9,5,5,3,9
  787. Data 11,1,1,1,1,11,1,1,1,11
  788. Data 11,1,1,3,1,9,1,3,1,11
  789. Data 11,1,1,11,1,11,1,11,1,11
  790. Data 11,1,1,9,1,14,1,9,2,2
  791. Data 11,1,1,11,1,1,1,11,12,1
  792. Data 3,3,17,3,17,3,3,3,3,3
  793. Data 3,3,3,3,3,3,3,3,3,3
  794. Data "SURPRISE!"
  795. Data 18
  796. Data 1
  797. LSCAPE11:
  798. Data 1,1,1,1,1,1,1,1,1,1
  799. Data 11,1,1,20,6,20,6,16,1,18
  800. Data 9,2,2,2,2,2,2,2,2,2
  801. Data 11,18,18,6,13,13,13,1,20,1
  802. Data 11,2,2,2,2,2,2,2,2,2
  803. Data 11,6,1,13,13,1,20,1,13,1
  804. Data 2,2,2,2,2,2,2,2,2,2
  805. Data 1,6,1,1,6,1,1,20,1,13
  806. Data 3,3,3,10,3,10,3,3,3,3
  807. Data 3,3,3,3,3,3,3,3,3,3
  808. Data "TRY THEM TELEPORTERS!"
  809. Data 5
  810. Data 2
  811. LSCAPE12:
  812. Data 1,1,1,1,1,1,1,1,1,1
  813. Data 4,16,1,1,1,1,1,1,1,4
  814. Data 3,14,14,14,14,3,14,14,14,3
  815. Data 4,1,6,1,1,1,1,1,13,4
  816. Data 3,14,14,14,14,14,14,14,14,3
  817. Data 4,13,1,1,1,1,1,8,1,4
  818. Data 3,3,3,14,14,14,14,3,3,3
  819. Data 1,8,1,1,1,8,1,1,13,1
  820. Data 3,3,3,17,3,3,3,3,3,3
  821. Data 3,3,3,3,3,3,3,3,3,3
  822. Data "PAC-MANIA"
  823. Data 15
  824. Data 1
  825. LSCAPE13:
  826. Data 1,1,1,1,1,1,1,1,1,1
  827. Data 1,16,11,1,11,1,1,1,1,11
  828. Data 2,3,9,19,9,1,3,1,2,9
  829. Data 13,4,11,4,11,1,11,1,1,11
  830. Data 2,4,11,4,3,3,9,1,1,11
  831. Data 13,4,11,4,11,1,11,1,1,11
  832. Data 2,4,11,4,9,10,3,1,1,11
  833. Data 13,6,11,18,11,1,4,1,18,11
  834. Data 3,3,14,3,14,3,3,3,10,3
  835. Data 3,3,3,3,3,3,3,3,3,3
  836. Data "TWINS"
  837. Data 25
  838. Data 2
  839. LSCAPE14:
  840. Data 1,1,1,1,1,1,1,1,1,1
  841. Data 1,18,11,18,1,18,1,18,1,11
  842. Data 3,10,9,10,2,10,3,10,2,9
  843. Data 11,18,11,18,18,1,11,1,1,11
  844. Data 11,10,3,10,10,2,9,1,14,11
  845. Data 11,18,11,18,1,1,11,18,1,11
  846. Data 2,10,9,10,2,1,14,10,2,2
  847. Data 1,6,11,20,1,1,18,1,18,16
  848. Data 14,2,2,14,3,3,10,3,10,3
  849. Data 3,3,3,3,3,3,3,3,3,3
  850. Data "RED HEAT"
  851. Data 25
  852. Data 2
  853. End Proc
  854. Procedure DRWLEVEL
  855. Shared LSC(),LEVELNAME$,FARBE()
  856. Autoback 0
  857. LSCZ=10
  858. For Y=0 To 7
  859. For X=0 To 9
  860. Inc LSCZ
  861. Paste Icon X*32,Y*32-8,LSC(LSCZ)
  862. Next X
  863. Next Y
  864. Screen Copy Logic(0) To Physic(0)
  865. Autoback 2
  866. Get Sprite Palette 
  867. For I=0 To 15
  868. Colour(I),FARBE(I)
  869. Next I
  870. Flash 7,"(f0f,5)(e0e,5)(d0d,5)(c0c,5)(b0b,5)(a0a,5)(808,5)(606,5)(404,5)(606,5)(808,5)(a0a,5)(b0b,5)(c0c,5)(d0d,5)(e0e,5)"
  871. Screen 1
  872. Print 
  873. Centre LEVELNAME$
  874. Screen 0
  875. End Proc
  876. Procedure INICOINS
  877. Shared TIME,E1X,E1Y,E1A$,E2X,E2Y,E2A$,E3X,E3Y,E3A$,LEVEL
  878. FILE$=Str$(LEVEL)
  879. If LEVEL>9 Then FILE$=Right$(FILE$,2) Else FILE$=Right$(FILE$,1)
  880. FILNAME$="COINDAT"+FILE$
  881. Restore FILNAME$
  882. For I=1 To 6
  883. Read COINX
  884. Read COINY
  885. Read COIN$
  886. If COIN$="" Then COIN$=COINOLD$
  887. COINOLD$=COIN$
  888. Bob I,COINX+15,COINY+11,60
  889. Channel I To Bob I
  890. Amal I,COIN$
  891. Amal On I
  892. Next I
  893. Read E1X
  894. Read E1Y
  895. Read E1A$
  896. Read E2X
  897. Read E2Y
  898. Read E2A$
  899. Read E3X
  900. Read E3Y
  901. Read E3A$
  902. Channel 0 To Rainbow 0
  903. Amal 0,"L: L Y=0 ; L X=0 ; F R0=0 T 220 ; L X=X+1 ; F R1=0 T R2 ; N R1 ; N R0"
  904. Amreg(0,2)=TIME
  905. Amal On 0
  906. COINDAT1:
  907. Data 160,192,"A 0,(60,5)(61,5)(62,5)(63,5)"
  908. Data 0,128,""
  909. Data 128,128,""
  910. Data 192,128,""
  911. Data 0,64,""
  912. Data 288,0,""
  913. Data 0,0,""
  914. Data 0,0,""
  915. Data 0,0,""
  916. COINDAT2:
  917. Data 256,192,"A 0,(60,5)(61,5)(62,5)(63,5)"
  918. Data 64,64,""
  919. Data 128,64,""
  920. Data 224,64,""
  921. Data 160,0,""
  922. Data 288,0,""
  923. Data 315,0,"A 0,(34,5)(35,5)(36,5)(37,5)(38,5)(39,5)(40,5)(41,5)(42,5)(43,5) ; L: L X=XH(0,315) ; L Y=YH(0,0) ; M -340,64,500 ; J L"
  924. Data 0,0,""
  925. Data 0,0,""
  926. COINDAT3:
  927. Data 288,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,20 ; M 0,10,20 ; J L"
  928. Data 96,0,""
  929. Data 160,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,10 ; M 0,10,10 ; J L"
  930. Data 192,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,30 ; M 0,10,30 ; J L"
  931. Data 224,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,15 ; M 0,10,15 ; J L"
  932. Data 256,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,25 ; M 0,10,25 ; J L"
  933. Data 100,35,"A 1,(52,5) ; L: L X=XH(0,100) ; L Y=YH(0,35) ; M 0,33,40 ; L X=XH(0,-15) ; F R0=1 T 400 ; N R0 ; J L"
  934. Data 165,35,"A 1,(52,5) ; L: L X=XH(0,165) ; L Y=YH(0,35) ; M 0,33,33 ; L X=XH(0,-15) ; F R0=1 T 200 ; N R0 ; J L"
  935. Data 0,0,""
  936. COINDAT4:
  937. Data 288,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M -96,0,120 ; M 96,0,150 ; J L"
  938. Data 192,128,"A 0,(60,5)(61,5)(62,5)(63,5)"
  939. Data 288,96,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-96,96 ; M 0,96,110 ; J L"
  940. Data 64,64,"A 0,(60,5)(61,5)(62,5)(63,5)"
  941. Data 192,64,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-64,200 ; M 0,64,180 ; J L"
  942. Data 96,0,"A 0,(60,5)(61,5)(62,5)(63,5)"
  943. Data 0,64,"L: A 0,(46,5)(47,5)(48,5) ; M 192,0,220 ; A 0,(49,5)(50,5)(51,5) ; M -192,0,220 ; J L"
  944. Data 320,192,"L: A 0,(49,5)(50,5)(51,5) ; M -256,0,256 ; A 0,(46,5)(47,5)(48,5) ; M 256,0,320 ; J L"
  945. Data 0,0,""
  946. COINDAT5:
  947. Data 288,192,"A 0,(60,5)(61,5)(62,5)(63,5)"
  948. Data 64,128,"A 0,(60,5)(61,5)(62,5)(63,5) ; M -64,0,150 ; M 64,0,100"
  949. Data 288,64,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M -160,0,160 ; M 160,0,160 ; J L"
  950. Data 0,0,"A 0,(60,5)(61,5)(62,5)(63,5)"
  951. Data 32,0,""
  952. Data 288,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M -160,160,160 ; M 160,-160,160 ; J L"
  953. Data 128,96,"L: A 0,(87,5)(88,5)(89,5)(90,5)(91,5) ; M 128,0,500 ; A 0,(82,5)(83,5)(84,5)(85,5)(86,5) ; M -128,0,500 ; J L"
  954. Data 256,128,"L: A 0,(82,5)(83,5)(84,5)(85,5)(86,5) ; M -128,0,400 ; A 0,(87,5)(88,5)(89,5)(90,5)(91,5) ; M 128,0,420 ; J L"
  955. Data -10,13,"A 0,(94,5)(95,5) ; L: M 128,0,20 ; L X=XH(0,-10) ; F R0=1 T 400 ; N R0 ; J L"
  956. COINDAT6:
  957. Data 288,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,20 ; M 0,10,20 ; J L"
  958. Data 0,128,""
  959. Data 288,64,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,10 ; M 0,10,10 ; J L"
  960. Data 96,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,30 ; M 0,10,30 ; J L"
  961. Data 160,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,15 ; M 0,10,15 ; J L"
  962. Data 288,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,25 ; M 0,10,25 ; J L"
  963. Data 320,203,"A 0,(92,5)(93,5) ; L: M -340,0,80 ; F R0=1 T 200 ; N R0 ; L X=XH(0,320) ; J L"
  964. Data -20,139,"A 0,(94,5)(95,5) ; L: M 340,0,100 ; F R0=1 T 200 ; N R0 ; L X=XH(0,-20) ; J L"
  965. Data 320,75,"A 0,(92,5)(93,5) ; L: M -340,0,80 ; F R0=1 T 200 ; N R0 ; L X=XH(0,320) ; J L"
  966. COINDAT7:
  967. Data 0,128,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,20 ; M 0,10,20 ; J L"
  968. Data 288,64,""
  969. Data 32,64,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,10 ; M 0,10,10 ; J L"
  970. Data 64,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,30 ; M 0,10,30 ; J L"
  971. Data 128,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,15 ; M 0,10,15 ; J L"
  972. Data 288,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,25 ; M 0,10,25 ; J L"
  973. Data 64,183,"A 1,(44,5) ; L: M 0,-16,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,16,8 ; J L"
  974. Data 128,151,"A 1,(45,5) ; L: M 0,3,14 ; M 0,5,10 ; M 0,8,13 ; M 0,16,10 ; M 0,-16,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; J L"
  975. Data 192,183,"A 1,(44,5) ; L: M 0,-16,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,16,8 ; J L"
  976. COINDAT8:
  977. Data 288,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M -160,0,200 ; M 160,0,200 ; J L"
  978. Data 0,96,"A 0,(60,5)(61,5)(62,5)(63,5)"
  979. Data 0,0,""
  980. Data 32,0,""
  981. Data 288,64,""
  982. Data 192,32,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,32,50 ; M 0,-32,50 ; J L"
  983. Data 256,32,"L: A 0,(34,5)(35,5)(36,5)(37,5)(38,5)(39,5)(40,5)(41,5)(42,5)(43,5) ; M -192,128,220 ; M 0,-128,130 ; A 0,(72,5)(73,5)(74,5)(75,5)(76,5)(77,5)(78,5)(79,5)(80,5)(81,5) ; M 192,128,220 ; M 0,-128,130 ; J L"
  984. Data 0,0,""
  985. Data 0,0,""
  986. COINDAT9:
  987. Data 32,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-12,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,12,8 ; J L"
  988. Data 256,96,""
  989. Data 160,32,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-16,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,16,8 ; J L"
  990. Data 224,32,""
  991. Data 64,96,"A 0,(60,5)(61,5)(62,5)(63,5)"
  992. Data 128,96,""
  993. Data 64,87,"A 1,(44,5) ; L: M 0,-20,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,20,8 ; J L"
  994. Data 128,51,"A 1,(45,5) ; L: M 0,3,14 ; M 0,5,10 ; M 0,8,13 ; M 0,20,10 ; M 0,-20,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; J L"
  995. Data 192,87,"A 1,(44,5) ; L: M 0,-20,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,20,8 ; J L"
  996. COINDAT10:
  997. Data 288,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-12,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,12,8 ; J L"
  998. Data 96,64,""
  999. Data 96,128,"A 0,(60,5)(61,5)(62,5)(63,5)"
  1000. Data 224,64,""
  1001. Data 96,0,""
  1002. Data 256,0,""
  1003. Data 68,220,"A 0,(82,5)(83,5)(84,5)(85,5)(86,5) ; L: M 0,-20,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; M 0,3,12 ; M 0,5,8 ; M 0,8,11 ; M 0,20,8 ; J L"
  1004. Data 132,190,"A 0,(87,5)(88,5)(89,5)(90,5)(91,5) ; L: M 0,3,14 ; M 0,5,10 ; M 0,8,13 ; M 0,20,10 ; M 0,-20,10 ; M 0,-8,13 ; M 0,-5,10 ; M 0,-3,14 ; J L"
  1005. Data 224,135,"L: A 0,(56,5)(57,5)(58,5) ; M 64,0,100 ; A 0,(53,5)(54,5)(55,5) ; M -64,0,100 ; J L"
  1006. COINDAT11:
  1007. Data 192,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,10 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,10,10 ; J L"
  1008. Data 256,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-12,12 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,12,12 ; J L"
  1009. Data 64,128,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-8,8 ; M 0,-6,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,6,13 ; M 0,8,8 ; J L"
  1010. Data 32,0,"A 0,(60,5)(61,5)(62,5)(63,5)"
  1011. Data 64,0,""
  1012. Data 256,0,""
  1013. Data 0,0,""
  1014. Data 0,0,""
  1015. Data 0,0,""
  1016. COINDAT12:
  1017. Data 288,192,"A 0,(60,5)(61,5)(62,5)(63,5)"
  1018. Data 96,128,""
  1019. Data 128,64,""
  1020. Data 192,64,""
  1021. Data 96,0,""
  1022. Data 160,0,""
  1023. Data 256,128,"L: A 0,(49,5)(50,5)(51,5) ; M -224,0,300 ; A 0,(46,5)(47,5)(48,5) ; M 224,0,300 ; J L"
  1024. Data 32,64,"L: A 0,(46,5)(47,5)(48,5) ; M 224,0,270 ; A 0,(49,5)(50,5)(51,5) ; M -224,0,280 ; J L"
  1025. Data 256,0,"L: A 0,(49,5)(50,5)(51,5) ; M -224,0,320 ; A 0,(46,5)(47,5)(48,5) ; M 224,0,300 ; J L"
  1026. COINDAT13:
  1027. Data 64,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,10 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,10,10 ; J L"
  1028. Data 160,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-12,12 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,12,12 ; J L"
  1029. Data 224,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-8,8 ; M 0,-6,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,6,13 ; M 0,8,8 ; J L"
  1030. Data 128,128,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-14,14 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,14,14 ; J L"
  1031. Data 160,64,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-16,16 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,16,16 ; J L"
  1032. Data 192,0,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-8,10 ; M 0,-6,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,6,13 ; M 0,8,8 ; J L"
  1033. Data 288,188,"L: A 0,(9,6)(10,6)(11,6)(12,6)(13,6)(14,6) ; M -64,0,150 ; A 0,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(7,6) ; M 64,0,150 ; J L"
  1034. Data 128,-4,"L: A 0,(9,6)(10,6)(11,6)(12,6)(13,6)(14,6) ; M -64,0,170 ; A 0,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(7,6) ; M 64,0,170 ; J L"
  1035. Data 192,60,"L: A 0,(9,6)(10,6)(11,6)(12,6)(13,6)(14,6) ; M -64,0,160 ; A 0,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(7,6) ; M 64,0,160 ; J L"
  1036. COINDAT14:
  1037. Data 224,192,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-10,10 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,10,10 ; J L"
  1038. Data 128,128,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-12,12 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,12,12 ; J L"
  1039. Data 256,128,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-8,8 ; M 0,-6,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,6,13 ; M 0,8,8 ; J L"
  1040. Data 160,64,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-14,14 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,14,14 ; J L"
  1041. Data 256,64,"A 0,(60,5)(61,5)(62,5)(63,5) ; L: M 0,-16,16 ; M 0,-8,13 ; M 0,-3,10 ; M 0,3,10 ; M 0,8,13 ; M 0,16,16 ; J L"
  1042. Data 0,0,"A 0,(60,5)(61,5)(62,5)(63,5)"
  1043. Data 288,199,"L: A 0,(53,6)(54,6)(55,6) ; M -160,0,200 ; A 0,(56,6)(57,6)(58,6) ; M 160,0,200 ; J L"
  1044. Data 128,7,"L: A 0,(53,6)(54,6)(55,6) ; M -128,0,150 ; A 0,(56,6)(57,6)(58,6) ; M 128,0,150 ; J L"
  1045. Data 192,7,"L: A 0,(56,6)(57,6)(58,6) ; M 96,0,100 ; A 0,(53,6)(54,6)(55,6) ; M-96,0,100 ; J L"
  1046. End Proc
  1047. Procedure CHGLEVEL
  1048. Shared LEVEL,MILIC1
  1049. Inc LEVEL
  1050. If LEVEL=15 Then LEVEL=1
  1051. If LEVEL>9 and MILIC1=0
  1052. MILIC1=1
  1053. Erase 2
  1054. Load "ic2",2
  1055. INILEVEL
  1056. End If 
  1057. If LEVEL<10 and MILIC1=1
  1058. MILIC1=0
  1059. Erase 2
  1060. Load "ic1",2
  1061. INILEVEL
  1062. End If 
  1063. Amal Off 
  1064. Sprite Off 
  1065. Bob Off 
  1066. Flash Off 
  1067. Shift Off 
  1068. Cls 0
  1069. INPLEVEL
  1070. DRWLEVEL
  1071. INICOINS
  1072. End Proc